home *** CD-ROM | disk | FTP | other *** search
/ MACD 5 / MACD 5.bin / internet / irc_i_dodatki / amircaskhost / askhost.amirx < prev   
Encoding:
Text File  |  1982-06-12  |  2.7 KB  |  91 lines
  1. /* Askhost script for use with AmIRC 1.x */ Version='1.03'/*
  2. // Written by Deryk Robosson 11.18.96
  3. //
  4. // newlook@ameritech.net newlook on #amiga IRC (EfNet)
  5. //
  6. // 3.1.97 Corrected problem with SAY. Reported by SimD
  7. // 15.1.97 Supports showing a user the output
  8. //         Supports passing user nick for input
  9. // 3.3.97 Corrected typo in my name ;)
  10. // 4.3.97 Prettied up the help/ver info a bit
  11. */
  12. bold=d2c(2)
  13. underline=x2c('1F')
  14. esc=d2c(27)
  15. tempfile="t:Askhost.temp"
  16.  
  17. options results
  18. parse arg param
  19.  
  20. param=strip(upper(param))
  21. if param="" then do
  22.     Call Version()
  23.     Exit
  24. end
  25.  
  26. if param='VER' then do
  27.     Call Version()
  28.     Exit
  29. end
  30.  
  31. if param='HELP' then do
  32.     Call Help()
  33.     Exit
  34. end
  35.  
  36. if param~="" then do
  37.     parse var param where" "command
  38.     parse var where domain"."whatever
  39.     if whatever="" then do
  40.         'USERHOST 'where
  41.         if result~="RESULT" then parse var result blah"@"host
  42.     end
  43.     else host=where
  44.  
  45.     if command~="" then do
  46.         parse var command command" "user
  47.     end
  48.     else command=""
  49. end
  50.  
  51. ADDRESS COMMAND 'amitcp:bin/Askhost 'host' >T:Askhost.temp'
  52.  
  53. if open(file, tempfile,'R') then do
  54.     do until eof(file)
  55.         line=ReadLn(file)
  56.         select
  57.             when line=' ' then nop
  58.             otherwise
  59.                 select
  60.                     when command="SAY" then 'SAY 'line
  61.                     when command="SHOW" then "RAW NOTICE" user ":"line
  62.                     otherwise
  63.                         if command="" then "ECHO "line
  64.                 end
  65.         end
  66.     end
  67.     close(file)
  68.     ADDRESS COMMAND 'delete >NIL: ' tempfile 'quiet force'
  69. end
  70. Exit
  71.  
  72. Version:
  73. "ECHO P="ESC||BOLD"«Askhost» Askhost.AMIRX"BOLD" Version "BOLD||VERSION||BOLD
  74. "ECHO P="ESC||BOLD"«Askhost» Read the top of Askhost.AMIRX script for history."
  75. "ECHO P="ESC||BOLD"«Askhost» "BOLD"©1996"BOLD" Deryk Robosson "BOLD"(newlook)"BOLD" - [newlook@ameritech.net]"
  76. "ECHO P="ESC||BOLD"«Askhost» Type /<alias> help for command information"
  77. return
  78.  
  79. Help:
  80. "ECHO P="ESC||BOLD"«Askhost» "BOLD"Askhost.AMIRC"BOLD" Help"
  81. "ECHO P="ESC||BOLD"«Askhost» "BOLD"SAY - "BOLD"echos output to window"
  82. "ECHO P="ESC||BOLD"«Askhost» "BOLD"VER - "BOLD"displays script version"
  83. "ECHO P="ESC||BOLD"«Askhost» "BOLD"SHOW - "BOLD"displays outout to user"
  84. "ECHO P="ESC||BOLD"«Askhost» "BOLD"HELP - "BOLD"displays this file"
  85. "ECHO P="ESC||BOLD"«Askhost» "BOLD||UNDERLINE"EXAMPLES:"BOLD||UNDERLINE
  86. "ECHO P="ESC||BOLD"«Askhost» "BOLD"/Askhost site "BOLD" to see output yourself"
  87. "ECHO P="ESC||BOLD"«Askhost» "BOLD"/Askhost usernick "BOLD" to see output yourself"
  88. "ECHO P="ESC||BOLD"«Askhost» "BOLD"/Askhost site SAY "BOLD" to show output to channel"
  89. "ECHO P="ESC||BOLD"«Askhost» "BOLD"/Askhost site SHOW nick "BOLD" to show output to a user"
  90. return
  91.